home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Synth Setups / MU80 Setup < prev   
Lisp/Scheme  |  1998-10-26  |  16KB  |  304 lines
  1. (setq diagnose-verbose nil)
  2.  
  3. ; NOTE! Setups are not installed in the MIDI menus anymore since they
  4. ; eat up too much of the limited menu item space. However, setups are
  5. ; loaded and you can use them in a normal way. To see what a setup
  6. ; contains simply open this file and browse it. If you want to jump
  7. ; quickly to the right setup, let's say gm-controllers, select
  8. ; List definitions from the Tools menu and double click the item.
  9. ; Then copy the controller name you want to use and paste it to the
  10. ; score.
  11.  
  12. (def-sound-set mu80-sounds :quiet
  13.   group Piano
  14.         GrandPno       (bank 0 1) GrandPnoK (bank 1 1) MelloGrP (bank 18 1) PianoStr (bank 40 1) Dream (bank 41 1) 
  15.         BritePno       (bank 0 2) BritPnoK (bank 1 2)
  16.         E-Grand        (bank 0 3) ElGrPnoK (bank 1 3) Det-CP80 (bank 32 3) ElGrPno1 (bank 40 3) ElGrPno2 (bank 41 3) 
  17.         HnkyTonk       (bank 0 4) HnkyTnkK (bank 1 4)
  18.         E-Piano1       (bank 0 5) El-Pno1K (bank 1 5) MelloEP1 (bank 18 5) Chor-EP1 (bank 32 5) HardEl-P (bank 40 5) VXEl-P1 (bank 45 5) 60sEl-P (bank 64 5) 
  19.         E-Piano2       (bank 0 6) El-Pno2K (bank 1 6) Chor-EP2 (bank 32 6) DXHard (bank 33 6) DXLegend (bank 34 6) DXPhase (bank 40 6) DX+Analg (bank 41 6) DXKotoEP (bank 42 6) VXEl-P2 (bank 45 6) 
  20.         Harpsi         (bank 0 7) Harpsi-K (bank 1 7) Harpsi-2 (bank 25 7) Harpsi-3 (bank 35 7) 
  21.         Clavi          (bank 0 8) Klavi-K (bank 1 8) ClaviWah (bank 27 8) PulseClv (bank 64 8) PierceCl (bank 65 8) 
  22.         Celesta        (bank 0 9) 
  23.   group Percussion
  24.         Glocken        (bank 0 10)
  25.         MusicBox       (bank 0 11) Orgel (bank 64 11) 
  26.         Vibes          (bank 0 12) VibesK (bank 1 12) HardVibe (bank 45 12) 
  27.         Marimba        (bank 0 13) MarimbaK (bank 1 3) SineMrmb (bank 64 13) Balafon (bank 96 13) Balafon2 (bank 97 13) LogDrum (bank 98 13) 
  28.         Xylophon       (bank 0 14)
  29.         TubulBel       (bank 0 15) ChrchBel (bank 96 15) Carillon (bank 97 15) 
  30.         Dulcimer       (bank 0 16) Dulcimr2 (bank 35 16)
  31.   group Organ
  32.         DrawOrgn       (bank 0 17) DetDrwOr (bank 32 17) 60SDrOr1 (bank 33 17) 60sDrOr2 (bank 34 17) 70sDrOr1 (bank 35 17) DrawOrg2 (bank 36 17) 60sDrOr3 (bank 37 17) EvenBar (bank 38 17) 16+2-2/3 (bank 40 17) OrganBa (bank 64 17) 70sDrOr2 (bank 65 17) CheezOrg (bank 66 17) DrawOrg3 (bank 67 17)
  33.         PercOrgn       (bank 0 18) 70sPcOr1 (bank 24 18) DetPrcOr (bank 32 18) LiteOrg (bank 33 18) PercOrg2 (bank 37 18) 
  34.         RockOrgn       (bank 0 19) RotaryOr (bank 64 19) SloRotar (bank 65 19) FstRotar (bank 66 19) 
  35.         Chrchorg       (bank 0 20) ChurOrg3 (bank 32 20) ChurOrg2 (bank 35 20) NotreDam (bank 40 20) OrgFlute (bank 64 20) TrmOrgFl (bank 65 20) 
  36.         ReedOrgn       (bank 0 21) PuffOrg (bank 40 21) 
  37.         Acordion       (bank 0 22) AccordIt (bank 32 22) 
  38.         Harmnica       (bank 0 23) Harmo2 (bank 32 23)
  39.         TangoAcd       (bank 0 24) TngoAcd2 (bank 64 24)
  40.   group Guitar
  41.         NylonGtr       (bank 0 25) NylonGt2 (bank 16 25) NylonGt3 (bank 25 25) VelGtHrm (bank 43 25) Ukulele (bank 96 25)
  42.         SteelGtr       (bank 0 26) SteelGt2 (bank 16 26) 12StrGtr (bank 35 26) Nyln&Stl (bank 40 26) Stl&Body (bank 41 26) Mandolin (bank 96 26) 
  43.         JazzGtr        (bank 0 27) MelloGtr (bank 18 27) JazzAmp (bank 32 27) PdlSteel (bank 96 27) 
  44.         CleanGtr       (bank 0 28) ChorusGt (bank 32 28) CleanGt2 (bank 64 28) 
  45.         MuteGtr        (bank 0 29) FunkGtr1 (bank 40 29) MuteStlG (bank 41 29) FunkGtr2 (bank 43 29) JazzMan (bank 45 29) MuDstGt (bank 96 29) 
  46.         Ovrdrive       (bank 0 30) Gt-Pinch (bank 43 30) 
  47.         DistGtr        (bank 0 31) DstRthmG (bank 12 31) DistGtr2 (bank 24 31) DistGtr3 (bank 35 31) PowerGt2 (bank 36 31) PowerGt1 (bank 37 31) Dst-5ths (bank 38 31) FeedbkGt (bank 40 31) FeedbGt2 (bank 41 31) RkRythm2 (bank 43 31) RockRthm (bank 45 31) 
  48.         GtrHarmo       (bank 0 32) AcoHarmo (bank 64 32) GtFeedbk (bank 65 32) GtrHrmo2 (bank 66 32) 
  49.   group Bass
  50.         AcoBass        (bank 0 33) JazzRthm (bank 40 33) VXUprght (bank 45 33) 
  51.         FngrBass       (bank 0 34) FingrDrk (bank 18 34) FlangeBa (bank 27 34) Ba&DstEG (bank 40 34) FngrSlap (bank 43 34) FngBass2 (bank 45 34) JazzBass (bank 64 34) ModAlem (bank 65 34) 
  52.         PickBass       (bank 0 35) MutePkBa (bank 28 35) 
  53.         Fretless       (bank 0 36) Fretles2 (bank 32 36) Fretles3 (bank 33 36) Fretles4 (bank 34 36) SynFretl (bank 96 36) Smooth (bank 97 36) 
  54.         SlapBas1       (bank 0 37) ResoSlap (bank 27 37) PunchThm (bank 32 37) 
  55.         SlapBas2       (bank 0 38) VeloSlap (bank 43 38) 
  56.         SynBass1       (bank 0 39) SynBa1Dk (bank 18 39) FastResB (bank 20 39) AcidBass (bank 24 39) ClvBass (bank 35 39) TeknoBa (bank 40 39) Oscar (bank 64 39) SqrBass (bank 65 39) RubberBa (bank 66 39) Hammer (bank 96 39) 
  57.         SynBass2       (bank 0 40) MelloSB1 (bank 6 40) SeqBass (bank 12 40) ClkSynBa (bank 18 40) SynBa2Dk (bank 19 40) SmthBa2 (bank 32 40) ModulrBa (bank 40 40) DXBass (bank 41 40) XWireBa (bank 64 40) 
  58.   group Strings
  59.         Violin         (bank 0 41) SlowVln (bank 8 41) 
  60.         Viola          (bank 0 42)
  61.         Cello          (bank 0 43)
  62.         Contrabs       (bank 0 44)
  63.         TremStr        (bank 0 45) SlwTrStr (bank 8 45) SuspStr (bank 40 45)
  64.         PizzStr        (bank 0 46)
  65.         Harp           (bank 0 47) YangChin (bank 40 47) 
  66.         Timpani        (bank 0 48)
  67.   group Ensemble
  68.         Strings1       (bank 0 49) S-Strngs (bank 3 49) SlowStr (bank 8 49) ArcoStr (bank 24 49) 60sStrng (bank 35 49) Orchestr (bank 40 49) Orchstr2 (bank 41 49) TremOrch (bank 42 49) VeloStr (bank 45 49) 
  69.         Strings2       (bank 0 50) S-SlwStr (bank 3 50) LegatoStr (bank 8 50) WarmStr (bank 40 50) Kingdom (bank 41 50) 70sStr (bank 64 50) StrEns3 (bank 65 50) 
  70.         SynStr1        (bank 0 51) ResoStr (bank 27 51) SynStr3 (bank 35 51) SynStr4 (bank 64 51) SSStr (bank 65 51) 
  71.         SynStr2        (bank 0 52)
  72.         ChoirAah       (bank 0 53) S-Choir (bank 3 53) Ch-Aahs2 (bank 16 53) MelChoir (bank 32 53) ChoirStr (bank 40 53) StrngAah (bank 64 53) MaleAah (bank 65 53) 
  73.         VoiceOoh       (bank 0 54) VoiceDoo (bank 64 54) VoiceHmn (bank 96 54) 
  74.         SynVoice       (bank 0 55) SynVox2 (bank 40 55) Choral (bank 41 55) AnaVioce (bank 64 55) 
  75.         OrchHit        (bank 0 56) OrchHit2 (bank 35 56) Impact (bank 64 56) BrassStab (bank 65 56) DoublHit (bank 66 56) BrStab80 (bank 67 56) 
  76.   group Brass
  77.         Trumpet        (bank 0 57) Trumpet2 (bank 16 57) BriteTrp (bank 17 57) WarmTrp (bank 32 57) FluglHrn (bank 96 57) 
  78.         Trombone       (bank 0 58) Trmbone2 (bank 18 58) 
  79.         Tuba           (bank 0 59) Tuba2 (bank 16 59) 
  80.         MuteTrp        (bank 0 60) MuteTrp2 (bank 64 60) 
  81.         FrHorn         (bank 0 61) FrHrSolo (bank 6 61) FrHorn2 (bank 32 61) HornOrch (bank 37 61) 
  82.         BrasSect       (bank 0 62) SfrzndBr (bank 14 62) Tp&TbSec (bank 35 62) BrssFall (bank 39 62) BrssSec2 (bank 40 62) HiBrass (bank 41 62) MelloBrs (bank 42 62) 
  83.         SynBras1       (bank 0 63) QuackBr (bank 12 63) RezSynBr (bank 20 63) PolyBrss (bank 24 63) SynBras3 (bank 27 63) JumpBrss (bank 32 63) AnaVelBr (bank 45 63) AnaBrss1 (bank 64 63) 
  84.         SynBras2       (bank 0 64) SoftBrs (bank 18 64) SynBras4 (bank 40 64) ChorBrss (bank 41 64) VelBras2 (bank 45 64) AnaBrss2 (bank 64 64) 
  85.   group Reed
  86.         SprnoSax       (bank 0 65)
  87.         AltoSax        (bank 0 66) SaxSect (bank 40 66) HyprAlto (bank 43 66) 
  88.         TenorSax       (bank 0 67) BrthTnSx (bank 40 67) SoftTenr (bank 41 67) TnrSax2 (bank 64 67) 
  89.         BariSax        (bank 0 68)
  90.         Oboe           (bank 0 69)
  91.         EngHorn        (bank 0 70)
  92.         Bassoon        (bank 0 71)
  93.         Clarinet       (bank 0 72) BassClar (bank 96 72) 
  94.   group Pipe
  95.         Piccolo        (bank 0 73)
  96.         Flute          (bank 0 74)
  97.         Recorder       (bank 0 75)
  98.         PanFlute       (bank 0 76) PanFlut2 (bank 64 76) Kawala (bank 96 76) 
  99.         Bottle         (bank 0 77)
  100.         Shakhchi       (bank 0 78)
  101.         Whistle        (bank 0 79)
  102.         Ocarina        (bank 0 80)
  103.   group Synth\ lead
  104.         SquareLd       (bank 0 81) Square2 (bank 6 81) LMSquare (bank 8 81) Hollow (bank 18 81) Shmoog (bank 19 81) Mellow (bank 64 81) SoloSine (bank 65 81) SineLead (bank 66 81) 
  105.         SawLead        (bank 0 82) Saw2 (bank 6 82) ThickSaw (bank 8 82) DynaSaw (bank 18 82) DigiSaw (bank 19 82) BigLead (bank 20 82) HeavySyn (bank 24 82) WaspySyn (bank 25 82) PulseSaw (bank 40 82) DrLead (bank 41 82) VeloLead (bank 45 82) SeqAna (bank 96 82) 
  106.         CaliopLd       (bank 0 83) VentSyn (bank 64 83) PurePad (bank 65 83) 
  107.         ChiffLd        (bank 0 84) Rubby (bank 64 84) 
  108.         CharanLd       (bank 0 85) DistLead (bank 64 85) WireLead (bank 65 85) 
  109.         VoiceLd        (bank 0 86) SynthAah (bank 24 86) VoxLead (bank 64 86) 
  110.         FifthLd        (bank 0 87) BigFive (bank 35 87) 
  111.         BassLd         (bank 0 88) Big&Low (bank 16 88) Fat&Prky (bank 64 88) SoftWurl (bank 65 88) 
  112.   group Synth\ pad
  113.         NewAgePd       (bank 0 89) Fantasy2 (bank 64 89)
  114.         WarmPad        (bank 0 90) ThickPad (bank 16 90) SoftPad (bank 17 90) SinePad (bank 18 90) HornPad (bank 64 90) RotarStr (bank 65 90) 
  115.         PolySyPd       (bank 0 91) PolyPd80 (bank 64 91) ClickPad (bank 65 91) AnaPad (bank 66 91) SquarPad (bank 67 91) 
  116.         ChoirPad       (bank 0 92) Heaven2 (bank 64 92) LitePad (bank 65 92) Itopia (bank 66 92) CCPad (bank 67 92) 
  117.         BowedPad       (bank 0 93) Glacier (bank 64 93) GlassPad (bank 65 93)
  118.         MetalPad       (bank 0 94) TinePad (bank 64 94) PanPad (bank 65 94) 
  119.         HaloPad        (bank 0 95)
  120.         SweepPad       (bank 0 96) Shwimmer (bank 20 96) Converge (bank 27 96) PolarPad (bank 64 96) Sweepy (bank 65 96) Celstial (bank 66 96) 
  121.   group Synth\ effects
  122.         Rain           (bank 0 97) ClaviPad (bank 45 97) HrmoRain (bank 64 97) AfrcnWnd (bank 65 97) Caribean (bank 66 97) 
  123.         SoundTrk       (bank 0 98) Prologue (bank 27 98) Ancestrl (bank 64 98) Rave (bank 65 98) 
  124.         Crystal        (bank 0 99) SynDrCmp (bank 12 99) Popcorn (bank 14 99) TinyBell (bank 18 99) RndGlock (bank 35 99) GlockChi (bank 40 99) ClearBel (bank 41 99) ChorBell (bank 42 99) SynMalet (bank 64 99) SftCryst (bank 65 99) LoudGlok (bank 66 99) XmasBell (bank 67 99) VibeBell (bank 68 99) DigiBell (bank 69 99) AirBells (bank 70 99) BellHarp (bank 71 99) Gamelmba (bank 72 99) 
  125.         Atmosphr       (bank 0 100) WarmAtms (bank 18 100) HollwRls (bank 19 100) NylonEP (bank 40 100) NylnHarp (bank 64 100) HarpVox (bank 65 100) AtmosPad (bank 66 100) Planet (bank 67 100) 
  126.         Bright         (bank 0 101) FantaBel (bank 64 101) Smokey (bank 96 101) 
  127.         Goblins        (bank 0 102) GobSyn (bank 64 102) 50sSciFi (bank 65 102) RingPad (bank 66 102) Ritual (bank 67 102) ToHeaven (bank 68 102) MilkyWay (bank 69 102) Night (bank 70 102) Glisten (bank 71 102) Puffy (bank 72 102) BelChoir (bank 96 102) 
  128.         Echoes         (bank 0 103) EchoPad2 (bank 8 103) EchoPan (bank 14 103) EchoBell (bank 64 103) BigPan (bank 65 103) SynPiano (bank 66 103) Creation (bank 67 103) Stardust (bank 68 103) ResoPan (bank 69 103) 
  129.         Sci-Fi         (bank 0 104) Starz (bank 64 104) Odyssey (bank 65 104) 
  130.   group Ethnic
  131.         Sitar          (bank 0 105) DetSitar (bank 32 105) Sitar (bank 35 105) Tambra (bank 96 105) Tamboura (bank 97 105) 
  132.         Banjo          (bank 0 106) MuteBnjo (bank 28 106) Rabab (bank 96 106) Gopichnt (bank 97 106) Oud (bank 98 106) 
  133.         Shamisen       (bank 0 107) Tsugaru (bank 96 107) 
  134.         Koto           (bank 0 108) T-Koto (bank 96 108) Kanoon (bank 97 108) 
  135.         Kalimba        (bank 0 109) BigKalim (bank 64 109) 
  136.         BagPipe        (bank 0 110)
  137.         Fiddle         (bank 0 111)
  138.         Shanai         (bank 0 112) Shanai2 (bank 64 112) Pungi (bank 96 112) Hichriki (bank 97 112) 
  139.   group Percussive
  140.         TnklBell       (bank 0 113) Bonang (bank 96 113) Gender (bank 97 113) Gamelan (bank 98 113) S-Gamelan (bank 99 113) RamaCym (bank 100 113) AsianBel (bank 101 113) 
  141.         Agago          (bank 0 114) Atrigane (bank 96 114) 
  142.         SteelDrm       (bank 0 115) Tablas (bank 96 115) GlasPerc (bank 97 115) ThaiBell (bank 98 115) 
  143.         WoodBlok       (bank 0 116) Castanet (bank 96 116) 
  144.         TaikoDrm       (bank 0 117) Gr-Cassa (bank 96 117)
  145.         MelodTom       (bank 0 118) MelTom2 (bank 64 118) RealTom (bank 65 118) RockTom (bank 66 118) 
  146.         SynDrum        (bank 0 119) AnaTom (bank 64 119) ElecPerc (bank 65 119) 
  147.         RevCymbl       (bank 0 120) RevCym2 (bank 64 120) RevSnar1 (bank 96 120) RevSnar2 (bank 97 120) RevKick1 (bank 98 120) RevConBD (bank 99 120) RevTom1 (bank 100 120) RevTom2 (bank 101 120) 
  148.   group sound\ effects
  149.         FretNoiz       (bank 0 121)
  150.         BrthNoiz       (bank 0 122)
  151.         Seashore       (bank 0 123)
  152.         Tweet          (bank 0 124)
  153.         Telphone       (bank 0 125)
  154.         Helicptr       (bank 0 126)
  155.         Applause       (bank 0 127)
  156.         Gunshot        (bank 0 128)
  157. )
  158.  
  159. (def-controller-set mu80-controllers
  160.   group portament
  161.      portamento 65
  162.      portamento-time 5
  163.      portamento-cntr 84 
  164.   group reset
  165.      all-sounds-off 120
  166.      reset-all-controllers 121
  167.      all-notes-off 123
  168.      omni-off 124
  169.      omni-on 125
  170.      mono 126
  171.      poly 127 
  172.   group mixer
  173.      volume 7
  174.      panning 10 
  175.   group expressions
  176.      sostenuto 66
  177.      expression 11
  178.      modulation 1
  179.      resonance 71
  180.      soft-pedal 67
  181.      filter 74
  182.   group adrs
  183.      sustain 64
  184.      release-time 72
  185.      attact-time 73
  186.   group effects
  187.      reverb-level 91
  188.      chorus-level 93
  189.      variation-level 94
  190.   group misc
  191.      rpn-increment 96
  192.      rpn-decrement 97
  193.   group nonreg-parameters
  194.      nrpn-lsb 98
  195.      nrpn-msb 99
  196.      data-entry-msb 6
  197.      data-entry-lsb 38
  198.   group reg-parameters
  199.      rpn-lsb 100
  200.      rpn-msb 101
  201. )
  202.  
  203. (def-drumset mu80-analog
  204.    group Misc
  205.       HiQ1          (d# 1)
  206.       HiQ2          (f# 2)
  207.       SurdoMute     (c# 1)
  208.       SurdoOpen     (d 1)
  209.    group Scratch
  210.       ScratchPush   (f 1)
  211.       ScratchPull   (f# 1)
  212.       ScratchPush2  (f# 6)
  213.       ScratchPull2  (g 6)
  214.    group Clicks
  215.       ClickNoise    (g# 1)
  216.       MetroClick    (a 1)
  217.       SeqClickL     (b 1)
  218.       SeqClickH     (c 2)
  219.    group Slaps&Claps
  220.       WhipSlap      (e 1)
  221.       FingerSnap    (g 1)
  222.       Vibraslap     (a# 4)
  223.       HandClap      (d# 3)
  224.    group Brush
  225.       BrushTap      (c# 2)
  226.       BrushSwirlL   (d 2)
  227.       BrushSlap     (d# 2)
  228.       SDRockH       (g 2)
  229.       Sticks        (g# 2)
  230.       SnareRoll     (f 2)
  231.       OpenRimShot   (a# 2)
  232.       AnalSideStick (c# 3)
  233.       HiQ           (f# 2)
  234.    group BassDrums
  235.       BassDrumM     (a 2)
  236.       BDAnalogL     (b 2)
  237.       BDAnalogH     (c 3)
  238.    group Snares
  239.       AnaSnareL     (d 3)
  240.       AnaSnareH     (e 3)
  241.    group Toms
  242.       AnalogTom1    (f 3)
  243.       AnalogTom2    (g 3)
  244.       AnalogTom3    (a 3)
  245.       AnalogTom4    (b 3)
  246.       AnalogTom5    (c 4)
  247.       AnalogTom6    (d 4)
  248.    group Hihats
  249.       AnaHHClosed1  (f# 3)
  250.       AnaHHClosed2  (g# 3)
  251.       AnaHHOpen     (a# 3)
  252.    group Cymbals
  253.       AnaCymbal     (c# 4)
  254.       RideCymbal1   (d# 4)
  255.       ChinaCymbal   (e 4)
  256.       RideCymbalCp  (f 4)
  257.       SplashCymbal  (g 4)
  258.       CrashCymbal2  (a 4)
  259.       RideCymbal2   (b 4)
  260.       ReversCymbal  (e 2)
  261.    group Bongos&Congas
  262.       BongoH        (c 5)
  263.       BongoL        (c# 5)
  264.       AnaCongaH     (d 5)
  265.       AnaCongaM     (d# 5)
  266.       AnaCongaL     (e 5)
  267.    group Shakes
  268.       AnaMaracas    (a# 5)
  269.       Shaker        (a# 6)
  270.       Tambourine    (f# 4)
  271.       Cabasa        (a 5)
  272.       GuiroShort    (c# 6)
  273.       GuiroLong     (d 6)
  274.    group Whistles
  275.       SambaWhistlH  (b 5)
  276.       SambaWhistlL  (c 6)
  277.    group Bells
  278.       AnaCowbel1    (g# 4)
  279.       MetroBell     (a# 1)
  280.       BelTree       (c 7)
  281.       JingleBell    (b 6)
  282.       TriangleOpen  (a 6)
  283.       TriangleMute  (g# 6)
  284.       TimbaleH      (f 5)
  285.       TimbaleL      (f# 5)
  286.       AgagoH        (g 5)
  287.       AgagoL        (g# 5)
  288.    group Unknown
  289.       Melody1       (c# 7)
  290.       Melody2       (d 7)
  291.       Melody3       (d# 7)
  292.       Melody4       (e 7)
  293.       Melody5       (f 7)
  294.       Melody6       (f# 7)
  295.       Melody7       (g 7)
  296.    group Blocks
  297.       AnaClaves     (d# 6)
  298.       WoodBlockH    (e 6)
  299.       WoodBlockL    (f 6) 
  300. )
  301.  
  302. (setq diagnose-verbose t)
  303.  
  304.